home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / locf.f < prev    next >
Encoding:
Text File  |  1989-02-03  |  593 b   |  17 lines
  1.       integer function locf(ivar)
  2.       implicit double precision (a-h,o-z)
  3.       external loc
  4. c spice version 2g.6  sccsid=status 3/15/83
  5.       common /status/ omega,time,delta,delold(7),ag(7),vt,xni,egfet,
  6.      1   xmu,sfactr,mode,modedc,icalc,initf,method,iord,maxord,noncon,
  7.      2   iterno,itemno,nosolv,modac,ipiv,ivmflg,ipostp,iscrch,iofile
  8.       dimension ivar(1)
  9.       iabsa=loc(ivar)
  10.       locf=iabsa/4
  11.       if (iabsa.eq.4*locf) return
  12.       write(iofile,100) iabsa
  13.   100 format ('0*error*: system error, address ',i10,
  14.      1   ' is not on 4-byte boundary')
  15.       return
  16.       end
  17.